class list ( init )
  L := init;
  Cons := proc(x) L := cons( x , L); return L end;
  Car := proc() return car(L) end;
  Cdr := proc() return cdr(L) end
end;

L := list([]);
L.Cons(3);
L.Cons(2);
L.Cons(1);
carL := L.Car();
cdrL := L.Cdr()
